home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / comm.swg / 0010_Hangup Routine.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  605b  |  23 lines
  1. {
  2. > I started writing communicating-Programs, and even
  3. > trying to develope simple doors. But, i have one
  4. > little problem: I don't know how to hang-up the modem!
  5. > - I am using a ready-made TPU that does all the port
  6. > tasks, but it just can't hang up!
  7. > All i know, is beFore the ~~~+++~~~ATH0 String, i need to 'Drop DTR'...
  8. > How do i do that?!?
  9.  
  10. if you are using a FOSSIL driver For communications, you could do this:
  11. }
  12.  
  13. Procedure Lower_DTR;
  14. Var regs:Registers;
  15. begin
  16.   regs.dx:=0;  {com1=0;com2=1;com3=2;com4=3}
  17.   regs.al:=$00;
  18.   regs.ah:=$06;
  19.   intr($14,regs);
  20.   Exit;
  21. end;
  22.  
  23.